(format-insert-file): Always return a list of two elements,

like insert-file-contents does.

diff --git a/lisp/format.el b/lisp/format.el
index 90047e98a6cfcdd7c65968de32af55a37f4ac892..09d3e5fa715507559de891a039d4c4abec73418d 100644 (file)
--- a/lisp/format.el
+++ b/lisp/format.el
@@ -416,7 +416,7 @@ The optional third and fourth arguments BEG and END specify
 the part of the file to read.
 
 The return value is like the value of `insert-file-contents':
-a list (ABSOLUTE-FILE-NAME . SIZE)."
+a list (ABSOLUTE-FILE-NAME SIZE)."
   (interactive
    ;; Same interactive spec as write-file, plus format question.
    (let* ((file (read-file-name "Find file: "))
@@ -429,7 +429,7 @@ a list (ABSOLUTE-FILE-NAME . SIZE)."
       (setq size (nth 1 value)))
     (if format
        (setq size (format-decode format size)
-             value (cons (car value) size)))
+             value (list (car value) size)))
     value))
 
 (defun format-read (&optional prompt)